!===============================================================
!
! Funzione Schwefel (n variabile) consigliata n=10
!
!===============================================================
!			VARIABLE BOUNDS
!===============================================================
!       -5.D+2              5.D+2          Limits of variable i
SUBROUTINE SCHWEFEL(X,N,F)

      IMPLICIT NONE

      INTEGER          :: N
      DOUBLE PRECISION :: X(N), F

      INTEGER          :: I

      F = 0.D0

	  DO I = 1,N
		F = F - X(I)*DSIN(DSQRT(DABS(X(I))))
	  ENDDO

      RETURN

END
